;; -*- Mode:LISP; Package:SI; Readtable:CL; Base:10 -*-

(defparameter initial-lisp-symbols '(
 &ALLOW-OTHER-KEYS
 &AUX
 &BODY
 &ENVIRONMENT
 &KEY
 &OPTIONAL
 &REST
 &WHOLE
 ***
 **
 *
 +++
 ++
 +
 -
 ///
 //
 /=
 cl:/                                           ;common -- incompatible
 1+
 1-
 <=
 <
 =
 >=
 >
 *APPLYHOOK*
 *BREAK-ON-WARNINGS*
 *DEBUG-IO*
 cl:*DEFAULT-PATHNAME-DEFAULTS*                 ;common -- incompatible
 *ERROR-OUTPUT*
 *EVALHOOK*
 *FEATURES*
 *LOAD-VERBOSE*
 *MACROEXPAND-HOOK*
 *MODULES*
 *PACKAGE*
 *PRINT-ARRAY*
 *PRINT-BASE*
 *PRINT-CASE*
 *PRINT-CIRCLE*
 *PRINT-ESCAPE*
 *PRINT-GENSYM*
 *PRINT-LENGTH*
 *PRINT-LEVEL*
 *PRINT-PRETTY*
 *PRINT-RADIX*
 *QUERY-IO*
 *RANDOM-STATE*
 *READ-BASE*
 *READ-DEFAULT-FLOAT-FORMAT*
 *READ-SUPPRESS*
 *READTABLE*
 *STANDARD-INPUT*
 *STANDARD-OUTPUT*
 *TERMINAL-IO*
 *TRACE-OUTPUT*
 ABS
 ACONS
 ACOS
 ACOSH
 ADJOIN
 ADJUST-ARRAY
 ADJUSTABLE-ARRAY-P
 ALPHA-CHAR-P
 ALPHANUMERICP
 AND
 APPEND
 APPLY
 APPLYHOOK
 APROPOS
 APROPOS-LIST
 cl:AREF                                        ;common -- incompatible
 ARRAY-DIMENSION
 ARRAY-DIMENSION-LIMIT
 ARRAY-DIMENSIONS
 ARRAY-ELEMENT-TYPE
 ARRAY-HAS-FILL-POINTER-P
 ARRAY-IN-BOUNDS-P
 ARRAY-RANK
 ARRAY-RANK-LIMIT
 ARRAY-ROW-MAJOR-INDEX
 ARRAY-TOTAL-SIZE
 ARRAY-TOTAL-SIZE-LIMIT
 ARRAYP
 ARRAY
 ASH
 ASIN
 ASINH
 ASSERT
 cl:ASSOC                                       ;common -- incompatible
 ASSOC-IF
 ASSOC-IF-NOT
 cl:ATAN                                        ;common -- incompatible
 ATANH
 ATOM
 BIGNUM
 BIT
 BIT-AND
 BIT-ANDC1
 BIT-ANDC2
 BIT-EQV
 BIT-IOR
 BIT-NAND
 BIT-NOR
 BIT-NOT
 BIT-ORC1
 BIT-ORC2
 BIT-VECTOR-P
 BIT-VECTOR
 BIT-XOR
 BLOCK
 BOOLE
 BOOLE-1
 BOOLE-2
 BOOLE-ANDC1
 BOOLE-ANDC2
 BOOLE-AND
 BOOLE-C1
 BOOLE-C2
 BOOLE-CLR
 BOOLE-EQV
 BOOLE-IOR
 BOOLE-NAND
 BOOLE-NOR
 BOOLE-ORC1
 BOOLE-ORC2
 BOOLE-SET
 BOOLE-XOR
 BOTH-CASE-P
 BOUNDP
 BREAK
 BUTLAST
 BYTE
 BYTE-POSITION
 BYTE-SIZE
 CAR
 CDR
 CAAR
 CADR
 CDAR
 CDDR
 CAAAR
 CAADR
 CADAR
 CADDR
 CDAAR
 CDADR
 CDDAR
 CDDDR
 CAAAAR
 CAAADR
 CAADAR
 CAADDR
 CADAAR
 CADADR
 CADDAR
 CADDDR
 CDAAAR
 CDAADR
 CDADAR
 CDADDR
 CDDAAR
 CDDADR
 CDDDAR
 CDDDDR
 CALL-ARGUMENTS-LIMIT
 CASE
 CATCH
 CCASE
 CEILING
 CERROR
 CHAR
 CHAR-BIT
 CHAR-BITS
 CHAR-BITS-LIMIT
 CHAR-CODE
 CHAR-CODE-LIMIT
 CHAR-CONTROL-BIT
 CHAR-DOWNCASE
 CHAR-EQUAL
 CHAR-FONT
 CHAR-FONT-LIMIT
 CHAR-GREATERP
 CHAR-HYPER-BIT
 CHAR-INT
 CHAR-LESSP
 CHAR-META-BIT
 CHAR-NAME
 CHAR-NOT-EQUAL
 CHAR-NOT-GREATERP
 CHAR-NOT-LESSP
 CHAR-SUPER-BIT
 CHAR-UPCASE
 CHAR/=
 CHAR<
 CHAR<=
 CHAR=
 CHAR>
 CHAR>=
 cl:CHARACTER                                   ;common -- incompatible
 CHARACTERP
 CHECK-TYPE
 CIS
 CLEAR-INPUT
 CLEAR-OUTPUT
 cl:CLOSE                                       ;common -- incompatible
 CLRHASH
 CODE-CHAR
 COERCE
 COMMON
 COMMONP
 COMPILATION-SPEED
 COMPILE
 COMPILE-FILE
 COMPILED-FUNCTION
 COMPILED-FUNCTION-P
 COMPILER-LET
 COMPLEX
 COMPLEXP
 CONCATENATE
 COND
 CONJUGATE
 CONS
 CONSP
 CONSTANTP
 COPY-ALIST
 COPY-LIST
 COPY-READTABLE
 COPY-SEQ
 COPY-SYMBOL
 COPY-TREE
 COS
 COSH
 COUNT
 COUNT-IF
 COUNT-IF-NOT
 CTYPECASE
 DECF
 DECLARATION
 DECLARE                                        ;common -- needs hacking
 DECODE-FLOAT
 DECODE-UNIVERSAL-TIME
 DEFCONSTANT
 DEFINE-MODIFY-MACRO
 DEFINE-SETF-METHOD
 DEFMACRO
 DEFPARAMETER
 DEFSETF
 cl:DEFSTRUCT                                   ;common -- incompatible
 DEFTYPE
 DEFUN
 DEFVAR
 cl:DELETE                                      ;common -- incompatible
 DELETE-DUPLICATES
 DELETE-FILE
 DELETE-IF
 DELETE-IF-NOT
 DENOMINATOR
 DEPOSIT-FIELD
 DESCRIBE
 DIGIT-CHAR
 DIGIT-CHAR-P
 DIRECTORY
 DIRECTORY-NAMESTRING
 DISASSEMBLE
 DO
 DO*
 DO-ALL-SYMBOLS
 DO-EXTERNAL-SYMBOLS
 DO-SYMBOLS
 DOCUMENTATION
 DOLIST
 DOTIMES
 DOUBLE-FLOAT
 DOUBLE-FLOAT-EPSILON
 DOUBLE-FLOAT-NEGATIVE-EPSILON
 DPB
 DRIBBLE
 ECASE
 ED
 EIGHTH
 ELT
 ENCODE-UNIVERSAL-TIME
 ENDP
 ENOUGH-NAMESTRING
 EQ
 EQL
 EQUAL
 EQUALP
 ERROR
 ETYPECASE
 EVAL
 EVAL-WHEN
 EVALHOOK
 EVENP
 cl:EVERY                                       ;common -- incompatible
 EXP
 EXPORT
 EXPT
 FBOUNDP
 FCEILING
 FFLOOR
 FIFTH
 FILE-AUTHOR
 FILE-LENGTH
 FILE-NAMESTRING
 FILE-POSITION
 FILE-WRITE-DATE
 FILL
 FILL-POINTER
 FIND
 FIND-ALL-SYMBOLS
 FIND-IF
 FIND-IF-NOT
 FIND-PACKAGE
 FIND-SYMBOL
 FINISH-OUTPUT
 FIRST
 FIXNUM
 FLET
 FLOAT
 FLOAT-DIGITS
 FLOAT-PRECISION
 FLOAT-RADIX
 FLOAT-SIGN
 FLOATP
 FLOOR
 FMAKUNBOUND
 FORCE-OUTPUT
 FORMAT
 FOURTH
 FRESH-LINE
 FROUND
 FTRUNCATE
 FTYPE
 FUNCALL
 FUNCTION
 cl:FUNCTIONP
 GCD
 GENSYM
 GENTEMP
 GET
 GET-DECODED-TIME
 GET-DISPATCH-MACRO-CHARACTER
 GET-INTERNAL-REAL-TIME
 GET-INTERNAL-RUN-TIME
 GET-MACRO-CHARACTER
 GET-OUTPUT-STREAM-STRING
 GET-PROPERTIES
 GET-SETF-METHOD
 GET-SETF-METHOD-MULTIPLE-VALUE
 GET-UNIVERSAL-TIME
 GETF
 cl:GETHASH
 GO
 GRAPHIC-CHAR-P
 HASH-TABLE
 HASH-TABLE-COUNT
 HASH-TABLE-P
 HOST-NAMESTRING
 IDENTITY
 cl:IF
 IGNORE
 IMAGPART
 IMPORT
 IN-PACKAGE
 INCF
 INLINE
 INPUT-STREAM-P
 INSPECT
 INT-CHAR
 INTEGER
 INTEGER-DECODE-FLOAT
 INTEGER-LENGTH
 INTEGERP
 INTERN
 INTERNAL-TIME-UNITS-PER-SECOND
 cl:INTERSECTION                                ;common -- incompatible
 ISQRT
 KEYWORD
 KEYWORDP
 LABELS
 LAMBDA
 LAMBDA-LIST-KEYWORDS
 LAMBDA-PARAMETERS-LIMIT
 LAST
 LCM
 LDB
 LDB-TEST
 LDIFF
 LEAST-NEGATIVE-DOUBLE-FLOAT
 LEAST-NEGATIVE-LONG-FLOAT
 LEAST-NEGATIVE-SHORT-FLOAT
 LEAST-NEGATIVE-SINGLE-FLOAT
 LEAST-POSITIVE-DOUBLE-FLOAT
 LEAST-POSITIVE-LONG-FLOAT
 LEAST-POSITIVE-SHORT-FLOAT
 LEAST-POSITIVE-SINGLE-FLOAT
 LENGTH
 LET
 LET*
 LISP-IMPLEMENTATION-TYPE
 LISP-IMPLEMENTATION-VERSION
 LIST
 LIST*
 LIST-ALL-PACKAGES
 LIST-LENGTH
 LISTEN
 cl:LISTP                                       ;common -- incompatible
 LOAD
 LOCALLY
 LOG
 LOGAND
 LOGANDC1
 LOGANDC2
 LOGBITP
 LOGCOUNT
 LOGEQV
 LOGIOR
 LOGNAND
 LOGNOR
 LOGNOT
 LOGORC1
 LOGORC2
 LOGTEST
 LOGXOR
 LONG-FLOAT
 LONG-FLOAT-EPSILON
 LONG-FLOAT-NEGATIVE-EPSILON
 LONG-SITE-NAME
 LOOP
 LOWER-CASE-P
 MACHINE-INSTANCE
 MACHINE-TYPE
 MACHINE-VERSION
 MACRO-FUNCTION
 cl:MACROEXPAND
 cl:MACROEXPAND-1
 MACROLET
 cl:MAKE-ARRAY
 MAKE-BROADCAST-STREAM
 MAKE-CHAR
 MAKE-CONCATENATED-STREAM
 MAKE-DISPATCH-MACRO-CHARACTER
 MAKE-ECHO-STREAM
 MAKE-HASH-TABLE
 MAKE-LIST
 cl:MAKE-PACKAGE
 MAKE-PATHNAME
 MAKE-RANDOM-STATE
 MAKE-SEQUENCE
 MAKE-STRING
 MAKE-STRING-INPUT-STREAM
 MAKE-STRING-OUTPUT-STREAM
 MAKE-SYMBOL
 MAKE-SYNONYM-STREAM
 MAKE-TWO-WAY-STREAM
 MAKUNBOUND
 cl:MAP                                         ;common -- incompatible
 MAPC
 MAPCAN
 MAPCAR
 MAPCON
 MAPHASH
 MAPL
 MAPLIST
 MASK-FIELD
 MAX
 cl:MEMBER                                      ;common -- incompatible
 MEMBER-IF
 MEMBER-IF-NOT
 MERGE
 MERGE-PATHNAMES
 MIN
 MINUSP
 MISMATCH
 MOD
 MOST-NEGATIVE-DOUBLE-FLOAT
 MOST-NEGATIVE-FIXNUM
 MOST-NEGATIVE-LONG-FLOAT
 MOST-NEGATIVE-SHORT-FLOAT
 MOST-NEGATIVE-SINGLE-FLOAT
 MOST-POSITIVE-DOUBLE-FLOAT
 MOST-POSITIVE-FIXNUM
 MOST-POSITIVE-LONG-FLOAT
 MOST-POSITIVE-SHORT-FLOAT
 MOST-POSITIVE-SINGLE-FLOAT
 MULTIPLE-VALUE-BIND
 MULTIPLE-VALUE-CALL
 MULTIPLE-VALUE-LIST
 MULTIPLE-VALUE-PROG1
 MULTIPLE-VALUE-SETQ
 MULTIPLE-VALUES-LIMIT
 NAME-CHAR
 NAMESTRING
 NBUTLAST
 NCONC
 NIL
 cl:NINTERSECTION                               ;common -- incompatible
 NINTH
 NOT
 NOTANY
 NOTEVERY
 NOTINLINE
 NRECONC
 NREVERSE
 NSET-DIFFERENCE
 NSET-EXCLUSIVE-OR
 NSTRING-CAPITALIZE
 NSTRING-DOWNCASE
 NSTRING-UPCASE
 NSUBLIS
 NSUBST
 NSUBST-IF
 NSUBST-IF-NOT
 NSUBSTITUTE
 NSUBSTITUTE-IF
 NSUBSTITUTE-IF-NOT
 NTH
 NTHCDR
 NULL
 NUMBER
 NUMBERP
 NUMERATOR
 cl:NUNION                                      ;common  -- incompatible
 ODDP
 OPEN
 OPTIMIZE
 OR
 OTHERWISE
 OUTPUT-STREAM-P
 PACKAGE-NAME
 PACKAGE-NICKNAMES
 PACKAGE-SHADOWING-SYMBOLS
 PACKAGE-USE-LIST
 PACKAGE-USED-BY-LIST
 PACKAGE
 PACKAGEP
 PAIRLIS
 PARSE-INTEGER
 PARSE-NAMESTRING
 PATHNAME
 PATHNAME-DEVICE
 PATHNAME-DIRECTORY
 PATHNAME-HOST
 PATHNAME-NAME
 PATHNAME-TYPE
 PATHNAME-VERSION
 PATHNAMEP
 PEEK-CHAR
 PHASE
 PI
 PLUSP
 POP
 POSITION
 POSITION-IF
 POSITION-IF-NOT
 PPRINT
 PRIN1
 PRIN1-TO-STRING
 PRINC
 PRINC-TO-STRING
 PRINT
 PROBE-FILE
 PROCLAIM
 PROG
 PROG*
 PROG1
 PROG2
 PROGN
 PROGV
 PROVIDE
 PSETF
 PSETQ
 PUSH
 PUSHNEW
 QUOTE
 RANDOM
 RANDOM-STATE
 RANDOM-STATE-P
 cl:RASSOC                                      ;common -- incompatible
 RASSOC-IF
 RASSOC-IF-NOT
 RATIO
 RATIONAL
 RATIONALIZE
 RATIONALP
 cl:READ                                        ;common -- incompatible
 READ-BYTE
 READ-CHAR
 READ-CHAR-NO-HANG
 READ-DELIMITED-LIST
 cl:READ-FROM-STRING                            ;common -- incompatible
 READ-LINE
 READ-PRESERVING-WHITESPACE
 READTABLE
 READTABLEP
 REALPART
 REDUCE
 cl:REM                                         ;common -- incompatible
 REMF
 REMHASH
 cl:REMOVE                                      ;common -- incompatible
 REMOVE-DUPLICATES
 REMOVE-IF
 REMOVE-IF-NOT
 REMPROP
 RENAME-FILE
 RENAME-PACKAGE
 REPLACE
 REQUIRE
 REST
 RETURN
 RETURN-FROM
 REVAPPEND
 REVERSE
 ROOM
 ROTATEF
 ROUND
 RPLACA
 RPLACD
 SAFETY
 SATISFIES
 SBIT
 SCALE-FLOAT
 SCHAR
 SEARCH
 SECOND
 SEQUENCE
 SET
 SET-CHAR-BIT
 SET-DIFFERENCE
 SET-DISPATCH-MACRO-CHARACTER
 SET-EXCLUSIVE-OR
 SET-MACRO-CHARACTER
 SET-SYNTAX-FROM-CHAR
 SETF
 SETQ
 SEVENTH
 SHADOW
 SHADOWING-IMPORT
 SHIFTF
 SHORT-FLOAT
 SHORT-FLOAT-EPSILON
 SHORT-FLOAT-NEGATIVE-EPSILON
 SHORT-SITE-NAME
 SIGNED-BYTE
 SIGNUM
 SIMPLE-ARRAY
 SIMPLE-BIT-VECTOR
 SIMPLE-BIT-VECTOR-P
 SIMPLE-STRING
 SIMPLE-STRING-P
 SIMPLE-VECTOR
 SIMPLE-VECTOR-P
 SIN
 SINGLE-FLOAT
 SINGLE-FLOAT-EPSILON
 SINGLE-FLOAT-NEGATIVE-EPSILON
 SINH
 SIXTH
 SLEEP
 SPACE
 SPEED
 SOFTWARE-TYPE
 SOFTWARE-VERSION
 cl:SOME                                        ;common -- incompatible
 SORT
 SPECIAL                                        ;common -- needs hacking
 SPECIAL-FORM-P
 SQRT
 STABLE-SORT
 STANDARD-CHAR
 STANDARD-CHAR-P
 STEP
 STREAM
 STREAM-ELEMENT-TYPE
 STREAMP
 STRING
 STRING-CAPITALIZE
 STRING-CHAR
 STRING-CHAR-P
 STRING-DOWNCASE
 STRING-EQUAL
 STRING-GREATERP
 STRING-LEFT-TRIM
 STRING-LESSP
 STRING-NOT-EQUAL
 STRING-NOT-GREATERP
 STRING-NOT-LESSP
 STRING-RIGHT-TRIM
 STRING-TRIM
 STRING-UPCASE
 STRING/=
 STRING<
 STRING<=
 STRING=
 STRING>
 STRING>=
 STRINGP
 STRUCTURE
 SUBLIS
 SUBSEQ
 SUBSETP
 cl:SUBST                                       ;common -- incompatible
 SUBST-IF
 SUBST-IF-NOT
 SUBSTITUTE
 SUBSTITUTE-IF
 SUBSTITUTE-IF-NOT
 SUBTYPEP
 SVREF
 SXHASH
 SYMBOL
 SYMBOL-FUNCTION
 SYMBOL-NAME
 SYMBOL-PACKAGE
 SYMBOL-PLIST
 SYMBOL-VALUE
 SYMBOLP
 T
 TAGBODY
 TAILP
 TAN
 TANH
 TENTH
 TERPRI
 THE
 THIRD
 THROW
 cl:TIME
 TRACE
 TREE-EQUAL
 TRUENAME
 TRUNCATE
 TYPE
 TYPE-OF
 TYPECASE
 TYPEP
 UNEXPORT
 UNINTERN
 cl:UNION
 UNLESS
 UNREAD-CHAR
 UNSIGNED-BYTE
 UNTRACE
 UNUSE-PACKAGE
 UNWIND-PROTECT
 UPPER-CASE-P
 USE-PACKAGE
 USER-HOMEDIR-PATHNAME
 VALUES
 VALUES-LIST
 VARIABLE
 VECTOR
 VECTOR-POP
 VECTOR-PUSH
 VECTOR-PUSH-EXTEND
 VECTORP
 WARN
 WHEN
 WITH-INPUT-FROM-STRING
 WITH-OPEN-FILE
 WITH-OPEN-STREAM
 WITH-OUTPUT-TO-STRING
 WRITE
 WRITE-BYTE
 WRITE-CHAR
 WRITE-LINE
 WRITE-STRING
 WRITE-TO-STRING
 Y-OR-N-P
 YES-OR-NO-P
 ZEROP

))
